#'###########################################
#'                                          #
#'  ------------------------------------    #
#'  |     COIN     __                  |    #
#'  |            >(' )                 |    #
#'  |              )/                  |    #
#'  |             /  `----/            |    #
#'  |             \  ~=- /             |    #
#'  |   ~^~^~^~^~^~^~^~^~^~^~^~^~^~^   |    #
#'  ------------------------------------    #
#'                                          #
#'###########################################

rm(list=ls())

source("C:/UQAR/Recherche/Maitrise/Donnees/R/DataManagement/loadData.R")


STATIC_WORKING_DIR <- "C:/UQAR/Recherche/Maitrise/Donnees/Bylot/Fixe"
MOVEBANK_STATIC_PATH <- "C:/UQAR/Recherche/Maitrise/Donnees/Movebank/Filtered/Statique/Argos_statique.csv"
MOVEBANK_STATIC_PATH2 <- "C:/UQAR/Recherche/Maitrise/Donnees/Movebank/Filtered/Statique/Argos_statique2.csv"

locsclasses=c(3, 2, 1, 0, "A", "B")

#'#
#'# Recuperation des donnees statiques et comparaison avec le gps
#'#

static.errors.raw <- loadData(STATIC_WORKING_DIR)
static.errors.mb <- loadMovebankData(MOVEBANK_STATIC_PATH)
static.errors.mb2 <- loadMovebankData(MOVEBANK_STATIC_PATH2)

#'#################################################################################################
#'#                                                                                              ##
#'#                                 Proportion de localisations                                  ##
#'#                                                                                              ##
#'#################################################################################################



res1 <- compare.filters.desc.static(static.errors.raw, static.errors.mb)
res2 <- compare.filters.desc.static(static.errors.raw, static.errors.mb2)
res3 <- compare.filters.desc.static(static.errors.mb, static.errors.mb2)



#'#################################################################################################
#'#                                                                                              ##
#'#                                 Evaluation de l'erreur                                       ##
#'#                                                                                              ##
#'#################################################################################################


#'#
#'# Distributions cumulatives
#'#


locs.props.raw <- locs.error.prop(static.errors.raw)
locs.props.mb <- locs.error.prop(static.errors.mb)


